﻿Public Class CHUNG
    Dim provider As New DataProvider

    Public Function LayDanhSach() As DataTable
        Dim sql As String = "SELECT tx.TenTuyen,td.thoidiemkhoihanh,td.ngaykhoihanh,td.malap,ll.thulap,td.manhanvien FROM TuyenXe tx, ThoiDiem_KhoiHanh td, LichLap ll "
        sql += "where tx.matuyen = td.matuyen and ll.malap = td.maLap"

        Dim dtBang As DataTable
        dtBang = provider.ThucThiCauTruyVan(sql)

        Return dtBang
    End Function
End Class
